home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / basic / apbsu100.zip / DISPLAY.BAS < prev    next >
BASIC Source File  |  1991-05-26  |  267b  |  15 lines
  1. set break on
  2. open "c:\pcwrite\astrolog\encyclop\astrolo1.doc" for input as #1
  3.   while not eof(1)
  4.     line input #1, nextline$
  5.     print nextline$
  6.     if inkey$=chr$(32) then gosub wait
  7.   wend
  8. close #1
  9. end
  10. wait:
  11. a$=inkey$
  12. if a$="" then goto wait
  13. return
  14.  
  15.